home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Italian (T-1.2.2) / Altri Stack / Rapporto Vendite / card_2942.txt < prev    next >
Text File  |  1988-11-22  |  1KB  |  72 lines
  1. -- card: 2942 from stack: in
  2. -- bmap block id: 3378
  3. -- flags: 0000
  4. -- background id: 2620
  5. -- name: 
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: A002
  11. -- rect: left=434 top=276 right=300 bottom=510
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Aggiorna
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the userLevel into saveLevel
  23.   if the userLevel < 3 then set userLevel to 3 -- "Disegno"
  24.   if the userLevel < 3 then exit mouseUp
  25.   clearScreen
  26.   put empty into background field "totale"
  27.   reset paint
  28.   choose rect tool
  29.   set lineSize to 1
  30.   set pattern to 14
  31.   set filled to true
  32.   put frameleft() into horiz
  33.   put maxLine(field "Dati") into maxValue
  34.   put the number of lines in field "Dati" into dataCount
  35.   put round(framewidth()/dataCount) into horizStep
  36.   put round(horizStep * 3/4) into width
  37.   repeat with i = 1 to dataCount
  38.     get line i of field "dati"
  39.     if it is not empty then
  40.       put round(frameheight() * it / maxValue) into height
  41.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  42.     end if
  43.     add horizStep to horiz
  44.   end repeat
  45.   reset paint
  46.   choose browse tool
  47.   set userLevel to saveLevel
  48. end mouseUp
  49.  
  50.  
  51.  
  52.  
  53. -- part contents for background part 5
  54. ----- text -----
  55. 20
  56. 88
  57. 90
  58. 56
  59. 25
  60. 50
  61. 67
  62. 50
  63. 75
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. -- part contents for background part 11
  71. ----- text -----
  72. MegaCorp: Ricavi totali per anno